package Wagons.Bar is


   type Wagon_Bar(Model : Type_Wagon) is private;

   function Contenance (Bar :Wagon_Bar) return Positive;
   function Saisir return Wagon_Bar;
   procedure Afficher(Bar : Wagon_Bar);

private
   type Wagon_Bar(Model : Type_Wagon) is new Wagon(Model) with record
      null;
   end record;

end Wagons.Bar;
